home *** CD-ROM | disk | FTP | other *** search
/ The National Palace Museum Experience / The National Palace Museum Experience.iso / Programs / Panorama.dxr / 00091_SetPano.ls < prev    next >
Encoding:
Text File  |  1998-11-19  |  3.7 KB  |  126 lines
  1. global gqtvrinstance, nodepict, pointx, pointy, compassline1, compassline2, anglelist, returnlist
  2.  
  3. on jumptonode jumptonodeid, changangle
  4.   if isqtvrmovie(gqtvrinstance) then
  5.     set tCurrentNodeID to qtvrgetnodeid(gqtvrinstance)
  6.     if (jumptonodeid <> tCurrentNodeID) or not voidp(changangle) or (getProp(returnlist, #flag) = 1) then
  7.       SetPanoNode(jumptonodeid, 0)
  8.       if not voidp(changangle) then
  9.         put changangle into field "PanAngle"
  10.         put 60 into field "FOV"
  11.       end if
  12.       set panAngle to the text of member "PanAngle"
  13.       set FOV to the text of member "FOV"
  14.       set tiltAngle to the text of member "TiltAngle"
  15.       set quality to the text of member "Quality"
  16.       SetMovieView(panAngle, tiltAngle, FOV, "3", "1", quality)
  17.       setcompass(jumptonodeid)
  18.     end if
  19.   end if
  20. end
  21.  
  22. on compass angle, length, x0, y0
  23.   puppetSprite(compassline1, 1)
  24.   puppetSprite(compassline2, 1)
  25.   set angle to angle + 180
  26.   set angle1 to angle - 90
  27.   set a to float(angle) / 360
  28.   set b to float(angle1) / 360
  29.   set a to a * 2 * PI
  30.   set b to b * 2 * PI
  31.   set x to cos(a) * length
  32.   set y to sin(a) * length
  33.   if (x >= 0) and (x < 2) then
  34.     set x to 2
  35.   end if
  36.   if (y >= 0) and (y < 2) then
  37.     set y to 2
  38.   end if
  39.   if (x < 0) and (x > -2) then
  40.     set x to -2
  41.   end if
  42.   if (y < 0) and (y > -2) then
  43.     set y to -2
  44.   end if
  45.   set x1 to cos(b) * length
  46.   set y1 to sin(b) * length
  47.   if (x1 >= 0) and (x1 < 2) then
  48.     set x1 to 2
  49.   end if
  50.   if (y1 >= 0) and (y1 < 2) then
  51.     set y1 to 2
  52.   end if
  53.   if (x1 < 0) and (x1 > -2) then
  54.     set x1 to -2
  55.   end if
  56.   if (y1 < 0) and (y1 > -2) then
  57.     set y1 to -2
  58.   end if
  59.   set r to rect(x0, y0, x + x0, y + y0)
  60.   set t to rect(x0, y0, x1 + x0, y1 + y0)
  61.   if ((x < 0) and (y > 0)) or ((x > 0) and (y < 0)) then
  62.     set the memberNum of sprite compassline1 to the number of member "line2"
  63.   else
  64.     set the memberNum of sprite compassline1 to the number of member "line1"
  65.   end if
  66.   if ((x1 < 0) and (y1 > 0)) or ((x1 > 0) and (y1 < 0)) then
  67.     set the memberNum of sprite compassline2 to the number of member "line2"
  68.   else
  69.     set the memberNum of sprite compassline2 to the number of member "line1"
  70.   end if
  71.   set the rect of sprite compassline1 to r
  72.   set the rect of sprite compassline2 to t
  73.   updateStage()
  74. end
  75.  
  76. on setcompass node
  77.   global roomnumber, objmarker, roomname, gqtvrinstance
  78.   set pointx to the locH of sprite nodepict
  79.   set pointy to the locV of sprite nodepict
  80.   set currnodeid to qtvrgetnodeid(gqtvrinstance)
  81.   if (roomnumber = "000") and (the frame > (label("Room") + 3)) then
  82.     if currnodeid = 1 then
  83.       set pointx to 278
  84.       set pointy to 179
  85.     else
  86.       if currnodeid = 5 then
  87.         set pointx to 314
  88.         set pointy to 159
  89.       end if
  90.     end if
  91.     compass(360 - the text of member "PanAngle" + getAt(anglelist, node), 20, pointx, pointy)
  92.     set the visible of sprite objmarker to 0
  93.     qtvrupdate(gqtvrinstance)
  94.     updateStage()
  95.     go(the frame - 2)
  96.   end if
  97.   if isqtvrmovie(gqtvrinstance) then
  98.     compass(360 - the text of member "PanAngle" + getAt(anglelist, node), 20, pointx, pointy)
  99.   end if
  100. end
  101.  
  102. on SetPanoNode pNodeID, pUpdate, pQuality
  103.   if isqtvrmovie(gqtvrinstance) then
  104.     qtvrsetnodeid(gqtvrinstance, pNodeID)
  105.     if not voidp(pQuality) then
  106.       qtvrsetquality(gqtvrinstance, pQuality)
  107.     end if
  108.     if pUpdate then
  109.       qtvrupdate(gqtvrinstance)
  110.     end if
  111.   end if
  112. end
  113.  
  114. on SetMovieView pPan, pTilt, pFOV, pSwingSpeed, pSwingQuality, pFinalQuality
  115.   if isqtvrmovie(gqtvrinstance) then
  116.     qtvrsetfov(gqtvrinstance, pFOV)
  117.     qtvrsettiltangle(gqtvrinstance, pTilt)
  118.     qtvrsetpanangle(gqtvrinstance, pPan)
  119.     qtvrsettransitionmode(gqtvrinstance, "normal")
  120.     if pFinalQuality <> pSwingQuality then
  121.       qtvrsetquality(gqtvrinstance, pFinalQuality)
  122.       qtvrupdate(gqtvrinstance)
  123.     end if
  124.   end if
  125. end
  126.